home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / UN_Plotted_Stars.AMOS / UN_Plotted_Stars.amosSourceCode
AMOS Source Code  |  1995-12-30  |  490b  |  35 lines
  1. '
  2. ' stars that are ploted
  3. '
  4. ' these stars work on a non  
  5. ' double buffered screen and 
  6. ' the screen is never cleared
  7. '
  8. '
  9. '
  10. '  
  11. Screen Open 0,320,256,16,Lowres
  12. Curs Off : Flash Off : Hide : Cls 0
  13. '
  14. Dim W(50),D(50)
  15. '
  16. For A=1 To 50
  17. W(A)=Rnd(320)
  18. Next A
  19. For B=1 To 50
  20. D(B)=Rnd(245)+5
  21. Next B
  22. Paper 0
  23. '
  24. Repeat 
  25. For L=1 To 50
  26. Plot W(L)-1,D(L),0
  27. Plot W(L),D(L),2
  28. Inc W(L)
  29. If W(L)>320
  30.    W(L)=0
  31. End If 
  32. Next 
  33. Locate 0,15 : Centre "Plotted Stars"
  34. Locate 0,16 : Centre "  By PIGLET  "
  35. Until Mouse Key